約 5,571,734 件
https://w.atwiki.jp/mhp3rdta/pages/129.html
オブジェクトや罠を利用した狩猟の情報 ※高台等を利用したものをまとめています。 ※苦手な方はブラウザバック推奨。 + ベリオロス 重弩 プレイヤー名 タイム スキル ドリンク 武器 備考 Lunaria 01 47"53 攻撃力UP【大】/弱点特効/通常弾・連射矢UP/耳栓/見切り+1 ネコの胆力/ネコの暴れ撃ち/ネコの射撃術 覇砲ユプカムトルム 動画 + ハプルボッカ 準備中 + アルバトリオン 準備中
https://w.atwiki.jp/solidworksapi/pages/15.html
オブジェクト取得 SolidWorks アクティブなドキュメント モデルビュー コンフィグレーション コンポーネント ボディ 面 SolidWorks マクロから取得 Sub GetApplication() Dim objApp As SldWorks.SldWorks Set objApp = Application.SldWorks End Sub 外部プログラムから取得 Sub GetApplicationOutSide() Dim objApp As SldWorks.SldWorks 新規の場合 Set objApp = CreateObject("SldWorks.Application") 既存の場合 Set objApp = GetObject("", "SldWorks.Application") End Sub 上へ アクティブなドキュメント モデルドキュメント Sub GetModelDocument() Dim objApp As SldWorks.SldWorks Dim objModelDoc As SldWorks.ModelDoc2 Set objApp = Application.SldWorks Set objModelDoc = objApp.ActiveDoc End Sub アセンブリドキュメント Sub GetAssemblyDocument() Dim objApp As SldWorks.SldWorks Dim objAssyDoc As SldWorks.AssemblyDoc Set objApp = Application.SldWorks Set objAssyDoc = objApp.ActiveDoc End Sub パーツドキュメント Sub GetPartDocument() Dim objApp As SldWorks.SldWorks Dim objPartDoc As SldWorks.PartDoc Set objApp = Application.SldWorks Set objPartDoc = objApp.ActiveDoc End Sub 上へ モデルビュー アクティブなモデルビュー Function GetActiveView() As SldWorks.ModelView Dim objApp As SldWorks.SldWorks Dim objModelDoc As SldWorks.ModelDoc2 Set objApp = Application.SldWorks Set objModelDoc = objApp.ActiveDoc Set GetActiveView = objModelDoc.ActiveView End Function 上へ コンフィグレーション アクティブなコンフィグレーション Function GetActiveConfiguration() As SldWorks.Configuration Dim objApp As SldWorks.SldWorks Dim objModelDoc As SldWorks.ModelDoc2 Dim objConfMgr As SldWorks.ConfigurationManager Set objApp = Application.SldWorks Set objModelDoc = objApp.ActiveDoc Set objConfMgr = objModelDoc.ConfigurationManager Set GetActiveConfiguration = objConfMgr.ActiveConfiguration End Function コンフィグレーション一覧 Sub GetConfigurationList() Dim objApp As SldWorks.SldWorks Dim objModelDoc As SldWorks.ModelDoc2 Dim objConf As SldWorks.Configuration Dim astrNames As Variant Dim strName As Variant Set objApp = Application.SldWorks Set objModelDoc = objApp.ActiveDoc astrNames = objModelDoc.GetConfigurationNames For Each strName In astrNames Set objConf = objModelDoc.GetConfigurationByName(strName) 処理 ToDo Next End Sub 上へ コンポーネント アクティブなコンポーネント Function GetActiveComponent() As SldWorks.Component2 Dim objApp As SldWorks.SldWorks Dim objModelDoc As SldWorks.ModelDoc2 Dim objConfMgr As SldWorks.ConfigurationManager Dim objConf As SldWorks.Configuration Set objApp = Application.SldWorks Set objModelDoc = objApp.ActiveDoc Set objConfMgr = objModelDoc.ConfigurationManager Set objConf = objConfMgr.ActiveConfiguration Set GetActiveComponent = objConf.GetRootComponent3(True) End Function アクティブコンフィグレーションの構成部品一覧 Sub GetActiveConfigurationComponentList() Dim objApp As SldWorks.SldWorks Dim objModelDoc As SldWorks.ModelDoc2 Dim objConfMgr As SldWorks.ConfigurationManager Dim objConf As SldWorks.Configuration Dim objAssy As SldWorks.Component2 Dim arrayObjComp As Variant Dim objCompVariant As Variant Dim objComp As SldWorks.Component2 Set objApp = Application.SldWorks Set objModelDoc = objApp.ActiveDoc Set objConfMgr = objModelDoc.ConfigurationManager Set objConf = objConfMgr.ActiveConfiguration Set objAssy = objConf.GetRootComponent3(True) arrayObjComp = objAssy.GetChildren For Each objCompVariant In arrayObjComp Set objComp = objCompVariant 処理 ToDo Next End Sub アセンブリの構成部品一覧 Sub GetTopAssemblyComponentList() Dim objApp As SldWorks.SldWorks Dim objAssyDoc As SldWorks.AssemblyDoc Dim arrayObjComp As Variant Dim objCompVariant As Variant Dim objComp As SldWorks.Component2 Set objApp = Application.SldWorks Set objAssyDoc = objApp.ActiveDoc 最上位レベルの構成部品のみ arrayObjComp = objAssyDoc.GetComponents(True) すべての構成部品 arrayObjComp = objAssyDoc.GetComponents(False) For Each objCompVariant In arrayObjComp Set objComp = objCompVariant 処理 ToDo Next End Sub 編集中のコンポーネント Function GetEditTargetComponent() As SldWorks.Component2 Dim objApp As SldWorks.SldWorks Dim objModelDoc As SldWorks.ModelDoc2 Dim objEditinglDoc As SldWorks.ModelDoc2 Dim objAssyDoc As SldWorks.AssemblyDoc Dim objConfMgr As SldWorks.ConfigurationManager Dim objConf As SldWorks.Configuration Set objApp = Application.SldWorks Set objModelDoc = objApp.ActiveDoc If objModelDoc.GetType() = swDocumentTypes_e.swDocASSEMBLY Then Set objAssyDoc = objApp.ActiveDoc Set objEditinglDoc = objAssyDoc.GetEditTarget() If objModelDoc Is objEditinglDoc Then Editing Top Level Assembly Set objConfMgr = objModelDoc.ConfigurationManager Set objConf = objConfMgr.ActiveConfiguration Set GetEditTargetComponent = objConf.GetRootComponent3(True) Else Editing Component Set GetEditTargetComponent = objAssyDoc.GetEditTargetComponent() End If ElseIf objModelDoc.GetType() = swDocumentTypes_e.swDocPART Then Set objConfMgr = objModelDoc.ConfigurationManager Set objConf = objConfMgr.ActiveConfiguration Set GetEditTargetComponent = objConf.GetRootComponent3(True) Else Set GetEditTargetComponent = Nothing End If End Function 上へ ボディ アクティブなボディ(最初に見つかったボディ) Function GetActiveBody() As SldWorks.Body2 Dim objComponent As SldWorks.Component2 Dim arrayBodies As Variant Dim varBody As Variant Set objComponent = GetEditTargetComponent() arrayBodies = objComponent.GetBodies3(SwConst.swBodyType_e.swSolidBody, Nothing) Set GetActiveBody = Nothing For Each varBody In arrayBodies Set GetActiveBody = varBody Exit For Next End Function 編集中のコンポーネント Function GetEditTargetComponent() As SldWorks.Component2 Dim objApp As SldWorks.SldWorks Dim objModelDoc As SldWorks.ModelDoc2 Dim objEditinglDoc As SldWorks.ModelDoc2 Dim objAssyDoc As SldWorks.AssemblyDoc Dim objConfMgr As SldWorks.ConfigurationManager Dim objConf As SldWorks.Configuration Set objApp = Application.SldWorks Set objModelDoc = objApp.ActiveDoc If objModelDoc.GetType() = swDocumentTypes_e.swDocASSEMBLY Then Set objAssyDoc = objApp.ActiveDoc Set objEditinglDoc = objAssyDoc.GetEditTarget() If objModelDoc Is objEditinglDoc Then Editing Top Level Assembly Set objConfMgr = objModelDoc.ConfigurationManager Set objConf = objConfMgr.ActiveConfiguration Set GetEditTargetComponent = objConf.GetRootComponent3(True) Else Editing Component Set GetEditTargetComponent = objAssyDoc.GetEditTargetComponent() End If ElseIf objModelDoc.GetType() = swDocumentTypes_e.swDocPART Then Set objConfMgr = objModelDoc.ConfigurationManager Set objConf = objConfMgr.ActiveConfiguration Set GetEditTargetComponent = objConf.GetRootComponent3(True) Else Set GetEditTargetComponent = Nothing End If End Function 上へ 面 最初に見つかったボディのすべての面 Sub GetFaceList() Dim objApp As SldWorks.SldWorks Dim objModelDoc As SldWorks.ModelDoc2 Dim objBody As SldWorks.Body2 Dim arrayFaces As Variant Dim varFace As Variant Dim objFace As SldWorks.Face2 Set objApp = Application.SldWorks Set objModelDoc = objApp.ActiveDoc Set objBody = GetActiveBody() arrayFaces = objBody.GetFaces() Call objModelDoc.ClearSelection2(True) For Each varFace In arrayFaces Set objFace = varFace 処理 ToDo Next End Sub アクティブなボディ(最初に見つかったボディ) Function GetActiveBody() As SldWorks.Body2 Dim objComponent As SldWorks.Component2 Dim arrayBodies As Variant Dim varBody As Variant Set objComponent = GetEditTargetComponent() arrayBodies = objComponent.GetBodies3(SwConst.swBodyType_e.swSolidBody, Nothing) Set GetActiveBody = Nothing For Each varBody In arrayBodies Set GetActiveBody = varBody Exit For Next End Function 編集中のコンポーネント Function GetEditTargetComponent() As SldWorks.Component2 Dim objApp As SldWorks.SldWorks Dim objModelDoc As SldWorks.ModelDoc2 Dim objEditinglDoc As SldWorks.ModelDoc2 Dim objAssyDoc As SldWorks.AssemblyDoc Dim objConfMgr As SldWorks.ConfigurationManager Dim objConf As SldWorks.Configuration Set objApp = Application.SldWorks Set objModelDoc = objApp.ActiveDoc If objModelDoc.GetType() = swDocumentTypes_e.swDocASSEMBLY Then Set objAssyDoc = objApp.ActiveDoc Set objEditinglDoc = objAssyDoc.GetEditTarget() If objModelDoc Is objEditinglDoc Then Editing Top Level Assembly Set objConfMgr = objModelDoc.ConfigurationManager Set objConf = objConfMgr.ActiveConfiguration Set GetEditTargetComponent = objConf.GetRootComponent3(True) Else Editing Component Set GetEditTargetComponent = objAssyDoc.GetEditTargetComponent() End If ElseIf objModelDoc.GetType() = swDocumentTypes_e.swDocPART Then Set objConfMgr = objModelDoc.ConfigurationManager Set objConf = objConfMgr.ActiveConfiguration Set GetEditTargetComponent = objConf.GetRootComponent3(True) Else Set GetEditTargetComponent = Nothing End If End Function 上へ コメント 名前
https://w.atwiki.jp/oldmoon/pages/100.html
TFLの風景オブジェクト その2 破壊されるものの設定 例えばhead postの場合、破壊された状態の絵柄は、post stump(台=棒の地面との接地部分)、broken stick(棒)、severed head(頭)とsequenceが用意されています。1ページ前の木や石の作り方同様にhead postの壊れていない状態までをFearで設定していきます。次にprojectileを作成しましょう。ここではbroken stick、severed headを登録します。 注:オリジナルは画像がありました このように設定してみました。ここでの注意点はAnimation Rateです。1〜1では上手く表示されなかったので1〜3に変更したところ表示されるようになりました。地面への着地後は消えないようにしたいので数値は0に設定します。 broken stickも同様です。 projectile groupsに登録 新規でRhi head post piecesという項目を追加します。そこに今作った2つのprojectileを追加します。severed headは絵柄の中で頭が1個なのでcountは1to1に設定します。positionは1と設定すると爆発、飛散時に一瞬見えるか見えないかの位置に表示されてしまうので4としてみました。broken stickは長さを考え3個〜4個、positionは1〜4と設定してみました。 sceneryのへの登録 今度はscenery tagへこのprojectile groupを登録します。破壊されないものにはEdit projectile Groupsの設定は必要なかったのですが今回はそこの設定もします。impactはNo tagでかまいませんが、DetonationでRhi head post piecesを選択します。つでにEdit SequencesではRuinedにpost stumpを設定します。Ruinedはprojectileに関連あるなしに関わらずダメージを受けると表示される絵柄です。 これで設定はおしまいです。適当なマップに配置して試してみましょう。他の風景オブジェクトもこれと同じように作っていきます。 TFLの風景オブジェクト その1 3rdMapをつくりましょう トップページ
https://w.atwiki.jp/nenrei/pages/44.html
【作品名】ヘヴィーオブジェクト 【ジャンル】小説 【名前】マリーディ=ホワイトウィッチ 【属性】航空PMC所属の少女 【年齢】12歳 【長所】年齢がハッキリ出ている、凄腕のパイロットで射撃術や格闘術もこなせる 【短所】中がオッサンとしか思えない 参戦 vol.1
https://w.atwiki.jp/aoe2sc/pages/65.html
指定したオブジェクトが、悲鳴も上げずに、死体もできずに、消え去ります。
https://w.atwiki.jp/index-index/pages/2485.html
【種別】 勢力 【初出】 ヘヴィーオブジェクト 【解説】 世界的勢力の一角。あらゆる思想や宗教を受け入れることを特徴とする。 各種思想、宗教の代表が協議する『中央』と呼ばれる機関がある。 過去に規模が縮小した北欧・ギリシア・ケルト神話等の復活にも積極的に取り組んでいるが、 そのたびに基盤を割かれる最大派閥の十字教は神経をとがらせているらしい。 為替は固定されているが、ダイヤ・純金などの価値は変動している。 保有するオブジェクトはアフロディテ、アークエンジェルなど。
https://w.atwiki.jp/37564/pages/106.html
【作品名】ヘヴィーオブジェクト 【ジャンル】小説 【名前】アズライフィア=ウィンチェル 【属性】貴族 【殺人数】9人 【長所】麻薬戦争に手を染めてまでする行動力の高さ 【短所】ブラコン 【備考】アサルトライフルの射撃で8人殺害、対物ライフル狙撃で1人殺害 vol.1
https://w.atwiki.jp/kimura/pages/31.html
kimura@PukiWiki k-lab@wiki c-soul@wiki 情報表現基礎2005@wiki hikarijp@Wiki sakurako@Wiki
https://w.atwiki.jp/tts-script/pages/62.html
症状:ゲームデータや、セーブオブジェクトをフォルダわけしていると たまにフォルダが開けなくなる 対処法: ・日本語入力でも問題ない? ・「半角の数字」や「全角の数字」をセーブ名に混ぜるとエラーになりやすい? <なるときはなる模様 修正方法: C \Users\owner\Documents\My Games\Tabletop Simulator\Saves\Saved Objects を開く A:怪しいファイルを隔離するか、半分ずつに分けて試すことで原因のファイルを特定>削除する B:「ゲームを起動した状態」で、 ファイルをrootや新規のフォルダに移動させる ・TTSのオブジェクトセーブ画面を開いたまま 1つずつ入れていって画面が「???」のエラー起こしたらそれがエラーと判別する方法でも可能 ■注意 ・ゲーム本体側で、フォルダ階層、データの存在を保存してるみたいなので 適当にファイルを移動させてから、ゲームを起動すると エラーが起きる。 ゲーム停止後、 データをエクスプローラー上で削除しても 再度ゲームを起動すると復活するようになってしまう ◇対処法:ゲームを起動したままsaved objectのファイルを消したりする ※TTSではリアルタイムでデータの管理を行なっているが、 逆にゲーム停止状態だとエラーが起きる? ■選択時に出るサムネイルの変更方法 ・上記のセーブデータにある画像ファイルを変更、同じファイル名で上書きする
https://w.atwiki.jp/kuromame/pages/1.html
ウィキはみんなで気軽にホームページ編集できるツールです。 このページは自由に編集することができます。 メールで送られてきたパスワードを用いてログインすることで、各種変更(サイト名、トップページ、メンバー管理、サイドページ、デザイン、ページ管理、等)することができます ■ 新しいページを作りたい!! ページの下や上に「新規作成」というリンクがあるので、それをクリックしてください。 ■ 表示しているページを編集したい! ページ上の「このページを編集」というリンクや、ページ下の「編集」というリンクを押してください。 ■ ブログサイトの更新情報を自動的に載せたい!! お気に入りのブログのRSSを使っていつでも新しい情報を表示できます。詳しくはこちらをどうぞ。 ■ ニュースサイトの更新情報を自動的に載せたい!! RSSを使うと簡単に情報通になれます、詳しくはこちらをどうぞ。 ■ その他にもいろいろな機能満載!! 詳しくは、FAQ・初心者講座@wikiをみてね☆ 分からないことは? @wikiの詳しい使い方はヘルプ・FAQ・初心者講座@wikiをごらんください。メールでのお問い合わせも受け付けております。 ユーザ同士のコミュニケーションにはたすけあい掲示板をご利用ください